home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Insight_4_1991-05_Insight_Staff.d64 / ..koala src.tur. < prev    next >
Text File  |  2023-02-26  |  1KB  |  56 lines
  1.  
  2. ;{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{SHIFT-*}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}
  3. ;'insight q&a' column july, 1991 issue
  4. ;
  5. ;koala multicolor hi-res displayer
  6. ;by guardian (q&a column)
  7. ;
  8. ;assembler: turbo assembler 5.01
  9. ;computer : c64 (or c128 in 64 mode.)
  10. ;{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}
  11.  
  12.          *= $1000
  13.  
  14.          sei
  15.          ldx #$00        ;copy
  16. loop     lda $8328,x     ;color data
  17.          sta $d800,x     ;to color ram
  18.          lda $8428,x     ;($d800-$dbff)
  19.          sta $d900,x
  20.          lda $8528,x
  21.          sta $da00,x
  22.          lda $8628,x
  23.          sta $db00,x
  24.          lda $7f40,x     ;copy color
  25.          sta $4400,x     ;data to
  26.          lda $8040,x     ;screen ram
  27.          sta $4500,x     ;($4400-$47ff)
  28.          lda $8140,x
  29.          sta $4600,x
  30.          lda $8240,x
  31.          sta $4700,x
  32.          inx
  33.          bne loop
  34.  
  35.          lda $8710       ;background
  36.          sta $d021       ;color data
  37.  
  38.          lda #$3b        ;enter multi-
  39.          sta $d011       ;-color hi-res
  40.          lda #$d8        ;mode.
  41.          sta $d016
  42.  
  43.          lda $dd02       ;switch to
  44.          ora #$03        ;bank 2
  45.          sta $dd02       ;of vic-ii
  46.          lda $dd00       ;ram
  47.          and #$fc
  48.          ora #$02
  49.          sta $dd00
  50.  
  51.          lda #$18        ;set correct
  52.          sta $d018       ;bitmap bank
  53.  
  54. mainlp   jmp mainlp
  55.  
  56.